Top 10k strings from Tycoon - The Crossword Business Game (1985)(Duckworth Educational Computing - Newtech Publishing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   4 ;"you wish to";
   3 ;"Input amount";
   2 total=total+tu
   2 total=total+td
   2 f(p)=f(p)+1
   2 c(p)=c(p)-temp:
   2 ;"has had to be ";
   2 ;"has cost you";
   2 ;"forced on you!"
   2 ;"WORD ACCEPTED ":
   2 ;"Press any key";
   2 ;"OPTIONS";
   2 ;"Credit `";total:
   2 ;"A loan of ";cost;
   2 ;" Insufficient ";
   2 -d(p))*200
   2  Funds    ":
   1 yy=i(i+p):
   1 y$="T Y C O O N":
   1 winner=r(6
   1 uy a letter";
   1 total=total+(5
   1 temp=temp+1000
   1 subroutine=7
   1 subroutine=6
   1 subroutine=5
   1 subroutine=4
   1 subroutine=3
   1 subroutine=2
   1 subroutine=1
   1 subroutine=0
   1 subroutine
   1 sordid cossett e lunar e hunfold nestlec i seeds t mcant say cedeopera r trees a ink die l erred p sectsstud pop draws m dotes a oambles dustery l attar e dsteers lensesportal dulceto a rates o itactic tentera e defer t atome sir reedovens g carve a nap dud a stout f bardsperi col reeli a torus b itinged ribalde g resin t edreams defersvernal toileta e pagan o icapped purlina a denes l knose nod weretotal t rider z sit pod b feted t demurodes pet raser s claim n fgateau legatee e smile g rsurges stresscurare pallidu e expel a rrepent noodlel e trace l aeras ace dearwalls t testy v oil pin t seton t pedalclip tim serea m sheet p srebate riderse e urged n ederide seederpetted repastu i valid r igambit gerbild b lemon o todes sir musegores d hired r way ton t fined t bigoticer sob menun e opera a riodine ecartea e cedar e elidded deadensalute scrimpu i rally n agannet ospreya g kempt o ereel roe datesaree p kudos v mat rip t demur n deteruser his samem n cilla m adotted extendu o level s emurals teeterassist t
   1 s$(i)=" ":
   1 r(x)=r(x)+1
   1 r(i)=r(j):
   1 r(i)=c(i)+i(i)+i(6
   1 pointer=46000
   1 p(total)=0
   1 nvest a sum";
   1 nett=c(p)+i(p)+i(p+6
   1 l(p)=l(p)-temp:
   1 l(p)=l(p)+temp:
   1 l(p)=l(p)+td:
   1 l(p)=l(p)+cost:
   1 l(i)=l(j):
   1 i(p)=i(p+6
   1 i(j+p)=yy:
   1 i(i+p)=i(j+p):
   1 epay a loan";
   1 ell a word";
   1 d(i)=d(j):
   1 cost=temp:
   1 cost=len*td:
   1 c(p)=c(p)-tr:
   1 c(p)=c(p)-td*len:
   1 c(p)=c(p)-tc:
   1 c(p)=c(p)-(5
   1 c(p)=c(p)+total:
   1 c(p)=c(p)+total
   1 c(p)=c(p)+temp:
   1 c(p)=c(p)+td:
   1 c(p)=c(p)+i(p):
   1 c(p)=c(p)+cost:
   1 c(p)<15000
   1 c(i)=c(j):
   1 b(i)=b(j):
   1 ass your go":
   1 aplater slavedh retentive iintend avertsl e adore g ioars yak seens yap k per to  pot lip  ep fix v pad gheed tis liari r grate v acorona artista education elatest enters latest enters
   1 andom letter";
   1 ake a loan";
   1 abcdefghijklmnopqrstuvwxyzA$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z(JUMpLEnXx
   1 a$=n$(i*11
   1 To run type
   1 T Y C O O NA
   1 Compiling Line  
   1 Compiled OK
   1 << << 8<$8
   1 ;"you lose your";
   1 ;"with z.x.k.m";
   1 ;"turn and";
   1 ;"to start game"
   1 ;"to show scores";
   1 ;"the game":
   1 ;"sell a word?";
   1 ;"pick letter":
   1 ;"owe any";
   1 ;"out of time";
   1 ;"left !":
   1 ;"is not in the";
   1 ;"is BANKRUPT";
   1 ;"invest";
   1 ;"invest with";
   1 ;"debts of";
   1 ;"crossword":
   1 ;"borrow";
   1 ;"and must leave";
   1 ;"`---- `1-9999"
   1 ;"`";l(p):
   1 ;"You have run";
   1 ;"You do not";
   1 ;"You cannot";
   1 ;"Word Sold":
   1 ;"Verify correct";
   1 ;"Use ENTER to";
   1 ;"Unknown  `";tu;" ";
   1 ;"Total  =";
   1 ;"That mistake";
   1 ;"Shown    `";td;" ";
   1 ;"Random   `";tr;" "
   1 ;"R.Kinge 1985"
   1 ;"Poor at the other";
   1 ;"OK ";n$(i*11
   1 ;"No:";no:
   1 ;"No letters";
   1 ;"Nett `";
   1 ;"Move cursor";
   1 ;"Loan `";l(p);
   1 ;"Letter chosen";
   1 ;"Length =";len;
   1 ;"Inv3 `";i(p+12
   1 ;"Inv2 `";i(p+6
   1 ;"Inv1 `";i(p);
   1 ;"Input the word";
   1 ;"Input Player ";i;"'s name":
   1 ;"How do you rate yourself ?";
   1 ;"Good at crosswords";
   1 ;"GAME OVER"
   1 ;"ENTER to start"
   1 ;"Do you wish to";
   1 ;"Do you wish retain cash ? 
   1 ;"Do you still want to play 
   1 ;"Cost   =";td;" *";
   1 ;"Cash `";c(p);
   1 ;"Bought   `";tc;" ";
   1 ;"Bankrupt!"
   1 ;"Anyone replacing ";n$(i*11
   1 ;"@";f(p);"%";
   1 ;"4) Beginner"
   1 ;"3) Poor at the both";
   1 ;"2) Fair at one";
   1 ;"1) Good at Business";
   1 ;" Bankrupt ":
   1 ;"   spelling   ";
   1 ;"    TYCOON    ";
   1 ;"    Prices    ";
   1 ;"    OK ";n$(i*11
   1 -time);"   ";
   1 -max=loan"
   1 - @5% Int"
   1 +a+j)=w$(a):
   1 ((total/number)*10
   1 "Input number (1-49) ";a$
   1 "Input crossword No.  
   1 "How many players (1-6) ? ";a$
   1 "Difficulty (1-4) ? ";a$:
   1  Names Nmtop  Ctop Nvars
   1  Microdrive MCODER 3.0
   1  Clock routine    
   1  Begin  End   Vars Lines
   1  1984 THRELFALL and HODGSON